home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / roboxtra.zip / RM_PTR.RS < prev    next >
Text File  |  1992-02-15  |  2KB  |  32 lines
  1. ;-----------------------------------------------------------------------
  2. ;TITLE "Reset RoseMail pointers using BBSID.PTR"
  3. ;FILENAME:  rm_ptr.rs
  4. ;-----------------------------------------------------------------------
  5. ; NOTE: This script file is for use with Robocomm ver 4.x
  6. ;       and the RoseMail door. It assumes the PKunZIP is in
  7. ;       your path. Written by Michael MacDonald
  8. ;-----------------------------------------------------------------------
  9.  
  10. PARAMETER 1 "Set pointers to [B]efore or [A]fter last D/L?"
  11. ENDPARAMS
  12. MESSAGE "Resetting message pointers"
  13. WHEN "%BBS32%" SEND "N|"                       ;More?
  14. WHEN "ENTER TO CONTINUE" SEND "|"              ;Pause
  15. WAITFOR "%BBS35%"                              ;Main Board Prompt
  16. SEND "OPEN %BBS63%|"                           ;Open the Mail Door
  17. WAITFOR "%BBS40%"                              ;Mail Door Main Prompt
  18. RUN "PKUNZIP -o %QWKDIR%%ID%.QWK %ID%.PTR"     ;Unzip the PTR
  19. IF ERRORLEVEL GOTO ERROR                       ;See if PKunZIP fails
  20. SEND "R|"                                      ;Request PTR upload
  21. WAITFOR "%ID%.PTR"                             ;The BBS is ready
  22. UPLOAD "%ID%.PTR" USING "%BBS22%"              ;Start PTR upload
  23. WAITFOR "(ENTER to abort)"
  24. SEND "%P1%|"                                   ;Reset pointers to B or A
  25. MESSAGE "Message pointers reset to %P1%"
  26. WAITFOR "%BBS40%"                              ;Mail Main Prompt
  27. SEND "Q|"                                      ;Quit the Mail Door
  28. EXIT 0                                         ;Exit the script
  29. :ERROR
  30. SEND "Q|"                                      ;Exit with an error
  31. EXIT 1
  32.